00100	BEGIN "PTYCOT"
00200	EXTERNAL INTEGER _SKIP_;
00300	INTEGER PTYLIN,CH,SOURCE,CHLEFT,WORD,COUNT,BRCHR,BUFSIZ,I;
00400	BOOLEAN FLAG,EOF,CRFLAG;
00500	_SKIP_←0;
00600	SOURCE←0;
00700	PTYLIN←PTYGET; 
00800	IF _SKIP_=0 THEN OUTSTR("WHAT A PITY, CAN'T GET A PTY"&'15&'12)
00900	ELSE
01000	 BEGIN
01100	  PTYSTL(PTYLIN,PTYGTL(PTYLIN) LAND '777775777777);
01200	 BUFSIZ←PTOCNT(PTYLIN);
01300	 PTOSTR(PTYLIN,"TTY NO ECHO"&'15);
01400	 WHILE TRUE DO
01500	  BEGIN
01600	  CH←0;
01700	  WHILE CH≠329 DO
01800	   BEGIN
01900	   OUTSTR(PTYALL(PTYLIN));
02000	   DO
02100	   BEGIN
02200	   IF CH≥0 THEN CRFLAG←(CH='15);
02300	   IF SOURCE=0 THEN CH←INCHRS ELSE
02400	    BEGIN
02500	    CRFLAG←(CH='15);
02600	    IF CHLEFT=0 THEN
02700	     BEGIN
02800	     WORD←WORDIN(2);
02900	     CHLEFT←4;
03000	     END
03100	    ELSE CHLEFT←CHLEFT-1;
03200	    CH←IF EOF THEN 329 ELSE (WORD LSH -29) LAND '177;
03300	    WORD←WORD LSH 7;  IF CH='176 THEN CH←'175;
03400	    FOR I←1 STEP 1 UNTIL 15 DO CALL(0,"SLEEP");
03500	    END;
03600	   END UNTIL ¬(CRFLAG ∧ (CH='12));
03700	   IF CH<0 THEN CALL(0,"SLEEP") ELSE
03800	    IF CH≠329 THEN
03900	     BEGIN
04000	     WHILE PTIFRE(PTYLIN)<10 DO
04100	      BEGIN
04200	      OUTSTR(PTYALL(PTYLIN));
04300	      CALL(0,"SLEEP");
04400	      END;
04500	     PTOCHW(PTYLIN,CH);
04600	     COMMENT IF SOURCE=1 THEN OUTCHR(CH);
04700	     END;
04800	   END;
04900	  IF SOURCE=0 THEN
05000	   BEGIN
05100	   OUTSTR('15&'12&"INPUT FILE NAME:");
05200	   EOF←0;
05300	   OPEN(2,"DSK",'14,4,0,COUNT,BRCHR,EOF);
05400	   LOOKUP(2,INCHWL,FLAG);
05500	   CHLEFT←0;
05600	   IF FLAG THEN OUTSTR("CAN'T FIND IT"&'15&'12)
05700	   ELSE
05800	    BEGIN
05900	    SOURCE←1;
06000	    PTOSTR(PTYLIN,'15&'15); CALL(1,"SLEEP");
06100	    END;
06200	   END
06300	  ELSE
06400	   BEGIN
06500	   CLOSE(2);
06600	   OUTSTR('15&'12&"CLOSING INPUT FILE"&'15&'12);
06700	   SOURCE←0;
06800	   END;
06900	  END;
07000	 END;
07100	END;